home *** CD-ROM | disk | FTP | other *** search
/ The Essential Home & Business Collection / The Essential Home & Business Collection.iso / 27 / 3 / 5 / HP22D5.ZIP / EXTERN / SCANAUX.ASM < prev    next >
Assembly Source File  |  1991-04-16  |  577b  |  50 lines
  1. DOSSEG
  2. .MODEL        LARGE
  3.  
  4. .CODE
  5.  
  6.         public        _getdta
  7. _getdta        proc        far
  8.         mov        ah,2fh
  9.         int        21h
  10.         mov        dx,es
  11.         mov        ax,bx
  12.         retf
  13. _getdta        endp
  14.  
  15.  
  16.         public        _getfirst
  17. _getfirst    proc        far
  18.         push        bp
  19.         mov        bp,sp
  20.         push        ds
  21.  
  22.         mov        ah,4eh
  23.         lds        dx,[bp+6]
  24.         mov        cx,31h
  25.         int        21h
  26.         jc        gf1
  27.         xor        ax,ax
  28.         jmp short    gf2
  29. gf1:        mov        ax,1
  30. gf2:
  31.         pop        ds
  32.         pop        bp
  33.         retf        
  34. _getfirst    endp
  35.  
  36.         public        _getnext
  37. _getnext    proc        far
  38.         mov        ah,4fh
  39.         int        21h
  40.         jc        gn1
  41.         xor        ax,ax
  42.         jmp short    gn2
  43. gn1:        mov        ax,1
  44. gn2:
  45.         retf
  46. _getnext    endp
  47.  
  48. END
  49.  
  50.